What PC? 1998 July/WPCJUL98.ISO/DXRS/BUYERS07.DXR/Internal_32_scroll up button.ls

Text File | 1998-05-11 | 793 b | 19 lines

on mouseDown
  moveUpReviewList()
end

on moveUpReviewList
  global ScrollPosTop, scrollBarLength, scrollIncrements, xl, borderWidth, listOfSelectedReviews, pointerToReviewsList, SpriteList, SpriteForFirstOptionInList, reviewsDisplayed
  if pointerToReviewsList > 1 then
    set pointerToReviewsList to pointerToReviewsList - 1
    set ScrollPosTop to ScrollPosTop - scrollIncrements
    set the rect of sprite (SpriteList + 8) to rect(xl, ScrollPosTop, xl + borderWidth, ScrollPosTop + scrollBarLength)
  end if
  repeat with s = 1 to reviewsDisplayed
    set l to s + pointerToReviewsList - 1
    set currentItem to getAt(listOfSelectedReviews, l)
    set the member of sprite (SpriteForFirstOptionInList + s - 1) to member (currentItem && "graphic text")
    updateStage()
  end repeat
end